home *** CD-ROM | disk | FTP | other *** search
/ cyber.net interactivo 5 / inter@ivo 1996-06.iso / cybint5 / bin / cocktail.dxr / 00060.ls < prev    next >
Encoding:
Text File  |  1996-05-13  |  444 b   |  22 lines
  1. on exitFrame
  2.   global stat, tempo, sonix
  3.   set tempo to the timer / 60
  4.   set tempo to string(tempo)
  5.   set the text of cast 51 to tempo
  6.   if rollOver(4) or rollOver(10) then
  7.     if (soundBusy(2) = 0) and (sonix = 0) then
  8.       sound playFile 2, "..\som\hotgin.wav"
  9.       set sonix to 1
  10.     end if
  11.     onVis(10)
  12.   else
  13.     set sonix to 0
  14.     if checkVis(10) = 0 then
  15.       onVis(10)
  16.     else
  17.       InVis(10)
  18.     end if
  19.   end if
  20.   Loopframe()
  21. end
  22.